1 PRINT"[147]FULLSCREEN PLASMA SCROLLER!";
3 DIMC$(23)
5 POKE53280,0:POKE53281,0:POKE53282,4:POKE53283,6:POKE53284,13:X=0
10 POKE53265,87:REM 27
100 A$="[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[155]##[155]#[152]#[151]#[144]#[151]#[152]#[151]#"
105 B$="[144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][155][163][163][155][163][152][163][151][163][144][163][151][163][152][163][151][163]"
110 FORI=0TO6.28STEP(6.29/24)
120 A=2*(INT(SIN(I)*5))+20:B=2*(INT(COS(I*2)*5))+20
125 D=2*INT(SIN(I*2)*3)+40:E=38+(40-D)
130 C$(X)="[146]"+MID$(A$,A/2,A)+""+LEFT$(B$,D-A)
140 C$(X)=C$(X)+"[146]"+LEFT$(B$,B)+""+LEFT$(A$,E-B)
190 X=X+1:NEXT
200 PRINT"[147]";:POKE53281,2
800 POKE53270,192
900 FORJ=1TO8
1000 FORI=0TO23:PRINTC$(I);:NEXT
1150 NEXT
2000 POKE53270,200:POKE53265,27
2005 POKE54276,64:POKE54276+7,64
2010 PRINT"[147]":POKE53281,6:POKE53280,6
2100 PRINT"      THE OPEN SKY IS FALLING DOWN":PRINT
2120 PRINT"    THE AIR IS BURNING":PRINT
2140 PRINT"        I CAN SEE A LIGHT":PRINT
2160 PRINT"           A LIGHT OF TOMORROW":PRINT
2180 PRINT"              IT'S DARKENING":PRINT
2200 PRINT"     A THICK FOG IS SURROUNDING ME":PRINT
2220 PRINT"   I CAN'T SEE THE SKY":PRINT
2240 PRINT"     SUDDENLY I FEEL ILL":PRINT
2260 PRINT"       MAYBE I DID SOMETHING WRONG..."
2280 PRINTSPC(33)"- !AJY"
2300 PRINT"SAVUN                         KYTKENNAT"
2340 PRINT"TARKASTAMME                  HALVETTYA!";
3000 PRINT"LOAD"CHR$(34)"05*"CHR$(34)",8:"
3010 PRINT"RUN:";
3020 POKE198,2:POKE631,13:POKE632,13
3030 END